unit uRelatorios;

interface

uses
  Generics.Collections, SysUtils, uProduto;

type TProdutoItem = class
  private
    fproduto    : TProduto;

    procedure setProdto(const value : TProduto);

    function getProduto : TProduto;

  public
    constructor Create;
    Destructor Destroy;

    property Produto : TProduto  read getProduto  write setProdto;

end;

implementation

{ TRessuprimentoProduto }

constructor TProdutoItem.Create;
begin
  Produto := TProduto.Create;
end;

destructor TProdutoItem.Destroy;
begin
  if Assigned(Produto) then
    FreeAndNil(fproduto);
end;

function TProdutoItem.getProduto: TProduto;
begin
  Result := fproduto;
end;

procedure TProdutoItem.setProdto(const value: TProduto);
begin
  fproduto := value;
end;

end.
